program teste;
const n = 10;
const p = 20;
const d = 400;
type c = array [5..9] of a;
const y = 500;
procedure eueu(var b,c : tipo1);
const a = 20;
var a : int;

begin
a := p + d;

end.